88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 


G 8 


**F JLE*®*1D**SHUTDOWN | oP 
3 
3 
3 
| . 
: 
SSSSSSS_ HH HH UU UU TTTTTTTTTT DDDDDDDD 000000 Wh WW NN NN . 
SSSSSSSS_ HH HH UU UU TTTTTTTTTT DODDDODDDD 000000 Wid WW NN NN : 
HH HH UU UU TT DD DD OO 00 WW WW NN NN : 
ss HH HH UU UU TT 0D DD OO 00 WW WW NN NN 3 
SS HH HH UU UU TT 0D DD OO 00 WW WW NNNN NN ’ 
Hi HH UU UU TT DD DD 00 00 WwW WW : 
SSSSSS HHHHHHHHHH =U UU TT DD DD 00 00 WW Ww NN NN NN 3 
SSSSSS HHHHHHHHHH = UU UU TT DD DD 00 00 WW WW NN NN NN 3 
SS HH HH UU UU TT DD DD OO 00 WW Ww WwW NN 3 
SS HH HH UU UU TT DD DD OO 00 WW WW WW NN NNNN 3 
SS HH HH UU UU TT DD DD OO 00 WWWWw WWWW NN NN eves | 3 
SS HH HH UU UU TT DD DD 00 00 WWWW WWwWWw NN NN kaine $ 
SSSSSSSS HH HH UUUUUUUUUU TT DDDDDDDD 000000 WW WW NN NN ee 3 
SSSSSSSS HH HH UUUUUUUUUU TT DDDDDDDD 000000 Wut WW NN NN ene : 
LL IIIIII SSSSSSSS 3 
LL IIIIII SSSSSSSS $ 
LL II ss 3 
LL Il SS ; 
LL 1] $$ | ; 
LL II Ss 3 
LL II SSSSSS Z 
LL I] SSSSSS | : 
LL II SS 3 
LL I] SS F 
LL II SS - 
LL I] ss 3 
LLELLLLLLLL IIII11 SSSSSSSS 3 
LLLLLLLLLL III SSSSSSSS 3 
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; 1 001 MODULE OPCSSHUTDOWN ( H 
: ¢ Oe LANGUAGE ( b 15836). : 
3 0 IDENT = *v04 ; 
as 0008 
: $ 0906 SRR RA AERA AAA EAEAA ATER E ARTETA EATER AHEREEE EERE eee Ps 
; ® ; 
; 8 0008 'e COBYRIGHT (c) 1978, 1980, 1982, 1984 BY ® : 
tat 0009 0 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : : 
3 19 Baie 8 = ALL RIGHTS RESERVED. * ; 
P4 : ® ° 
$ i pote '® THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ‘ 
tS 1 '@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ‘ 
: 14 0014 '‘® INCLUSION OF rH ABOVE COPYRIGHT NOTICE. THIS S ARE OR ANY OTHER ¥ ‘ 
; 15 0015 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
; 16 Bo18 '® OTHE RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | ° 
3 i id EA 8 +. TRANSFERRED. * 

Py * ® | 

; 19 0019 O !* THE ee a IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20 0020 0 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; ei 00 1 0 i CORPORATION. ‘ | 

° :* * 

; 28 00 : Q != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS © 

3 $e 4 ¢ 8 + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

P 4 * } 

a 0026 0 !* , 

: e7 Bose 8 PARR ARR RAEAAAA AERA E REAR EA AE AA EEEAT AREA ETE AERA AAEAAK AKER eee eee 

; @& 028 

: “9 0¢9 0 !++ 

3 0 0030 O ! FACILITY: 

: 4 0031 0! 

; (3 0032 0} OPCOM 

= 0035 0! 

; 34 0034 0 ! ABSTRACT: | 

. 5 0035 0! 

; & 0036 0! This module contains the specialized logic to service | 

; $ ot TA a@ particular type of request sent by a user to OPCOM. | 

; 0039 0 ! Environment: 

; 60 0040 0! 

, 6% 0041 0! VAX/VMS operating system. 

3s 62 0042 0! 

; 43 004 ' Author: 

: 44 Boe ! 

3; 66 045 : Steven T. Jeffreys 

3 46 0046 0! 

... -F 0047 0 ! Creation date: 

: «648 Bpe8 8 : 

; 49 9 : March 10, 1981 

; 3930 ! 

.. a 051 ! Revision history: 

3 26 $038 ! 

ah 55 0! v03-003 pansoes CW Hobbs 25-Jul-1984 

3 54 54 : aperove shutdown 4 bumping the cluster 1/0 parameters so that 

32? the messages can be sent immediately. 

: 3 0089 : VO3-002 CWH3169 CW Hobbs 55-May-1984 


8 
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< 
oO 


3 H H ‘ Second pass for cluster-wide OPCOM: 

; : Add code to SHUTDOWN jacket routines to crash the 

; e Oe cluster on command. 

: 6 ; i v03=001 CwH3001 CW Hobbs 30-Jul-1983 

; 6 ; Various and sundry things to make OPCOM distributed 

3 3 Goes across the cluster. 

:; 666 066 0 ' v02-002 $TJ0167 Stev Jet treys 08-Feb-1982 

3 67 0067 0: Removed reference to *r eePut OUT ut. 
: os 0068 


6 | 
Orr Samy ToOuN 1b-se0-1984 93:36:13 AX-11 Bliss-32 V4.0-742 Page 3 


14-Sep-19 OPCOM. SRCJSHUTDOWN.B32;1 (2). 
: 7 70 BEGIN ! Start of SHUTDOWN 
a 72 1 LIBRARY 'SYSSLIBRARY:L18.L32"; 
$ ie 78 ! LIBRARY ‘LIBS: OPCOML IBY. 
es. 75 1 FORWARD ROUTINE 
ee. 16 1 SHUTDOWN_HANDLER : NOVALUE, 
; 8 07 | SHUTDOWN” CLM_HANDLER : NOVALUE; 
: 80 $7 1 EXTERNAL ROUTINE | 
: 1 080 1 CLUSCOMM_SEND : NOVALUE, 
; ¢ 081 1 DUMP LOG-FILE : NOVALUE , | 
; FF bas : SHUTBOUNT “LOOP : NOVALUE; 
: 85 084 1 EXTERNAL | 
; 4 tH ! C00 BUSY _MAKs | Maximum concurrent messages 
: 2g Boe : Mieetdt ia 2 ! Maximum concurrent messages to single node 
; 0088 1 
: 3 $090 i — INSQUE 1] 
Py . 5 nsert entry onto a eue 
; 92 0091 1 REMQUE ; ! Remove entry from a queue | 
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GLOBAL ROUTINE SHUTDOWN_HANDLER (BUFFER_DESC) : NOVALUE = 


oe | 
' Functional description: 


This routine is the handler for all SHUTDOWN messages received by OPCOM. 


Input: 


BUFFER_DESC : The address of a quesuere buffer descriptor that 
describes the buffer containing the message. 


Implicit Input: 
None. 
Output: 
None. | 
Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 
Routine value: 
None. 


! Start of SHUTDOWN_HANDLER 


BUF FER_DESC : $ref_bblock; 


PRIV = (.BUFFER_DESC CDSCSA_POINTERJ)+4 : $bblock; 
LOCAL 

REQ : Sref_bblock, 

STATUS : LONG; 

' 

: Require cmkrnl privs to shut it down 

if NOT .priv Cprv$v_cmkrnl) 

' RETURN DUMP_LOG_FILE (.buffer_desc, ZASCID "Shutdown message received without sufficient privs"); 
; If the request does not contain enough data, 

i 


PPB EEE & FAAP NPN NINININDY SS OO Os 


WO EWN @ODO AOA PUI HOOONOUE MMI" OOONO ME WOODS Ve ARO Obes 


then it cannot be processed. Ignore it. 


Be Se Oe es Be Ge Se Ge Se Be Gs Se Se Se Ge Se Se Ge Se Ge Ge Fe Se Ge Se Se Se Ge Ge Se Se Se Se Se Se Be Se Oe Se Se Se Ge Se Be Ss Se Be Se Se Ss oe SH Su oe Se eeee 


PORORoRORORORORORORONORORORONORORONRORUNONNY 2 3 
~ ow 
m 
a 
_ 
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SSBLSEREGN LSE SSLEAFUN ALS SOVSEAROAN VS SaVSenP Un =oSeuT AR avo Soewenk 


a a a a ed td od = sd = = 


a 
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; ; 1 138 FF tut tor dese Cdsc$w_length) LSS (opc$k_shutdown_min_size + opc$k_comhdrsiz) 
; : § : 1 , _ RETURN; 

3 : 5 ; § } Get a pointer to the message from the user 

H ; ? , 5 req = -buffer_desc Cdsc$a_pointer] + opc$k_comhdrsiz; 
; 135 , : If a cluster shutdown, then shut everything down 

: 161 1 § IF .$bblock Creq Copc$l_rq_options], opc$v_cluster] 

; 166 160 THEN 

; 161 BEGIN 

: 164 166 LOCAL 

: 165 016 message : $bblock Cshut_k_min_size); 

> 166 164 CHSFILL shut_k_min_size, message); 

; 167 165 message c(n_b_rastcode] = opes.4 clusmsg; 

: 168 166 message (clm_b_clm_code = clm_~shutdown; 

; 169 0167 message (clm_b_ds_version] = shut_k_ds_version; 
: 170 0168 message [clm_b_sw_version] = opc $k Sw_version; 

3: (171 0169 message Cta_wa length) = shut_k_min_size; 

: 76 0170 message (clm_l_csid] = .lclicsid; 

. SF 0171 cod_busy_max = 6 

: (176 HEE cod_busy_node = 4; 

3; v7 017 cluscomm_send (-1, shut_k_min_size, message); 

; 176 0174 3 

: 177 0175 : 

3; 178 0176 ! Now do the evil deed 

; 7 0177 : 

: 180 0178 SCMKRNL (ROUTIN=shutdown_loop); 

; «(181 0179 

3 156 0180 RETURN; 

; «18 0181 1 END; ! End of SHUTDOWN_HANDLER 


-TITLE OPCSSHUTDOWN 
-IDENT \V04-000\ 
-PSECT S$PLITS,NOWRT ,NOEXE ,2 


67 61 73 73 65 6D 20 6& 77 6F 64 
68 74 69 77 20 64 65 76 69 63 65 
63 69 66 66 
00 00 73 76 69 72 70 20 


NO 

ww 

~ 

Ww 
SON 
fous 
onnsN 


t pc ivs\<o><0> 
4770 
AB 


i 
P.AAA: .LONG 7 
-ADDRESS P 

L 


no Pos 
o 


OMM_SEND, DUMP_LOG_FI 
-EXTRN SHUTDOWN_LOOP, COD_BUSY_MA 
-EXTRN COD_BUSY"NODE, LCL_CSID 
-EXTRN SYSSCMKRAL 


-PSECT S$CODES,NOWRT,2 
00 -ENTRY SATOO UN MANOLER. Save R2,R3,R4,R5 
#i2, SP 


00 
5E 0c C3 00009 SUBL2 
0000 MOVL  BUFFER_DESC, R2 


P.AAB: .ASCII \Shutdown message received without suffic\ 


Page 


m 8 | 
OPCSSHUTDOWN 16-Sep-1984 01:56: AX-11 Bliss-32 V4.0-742 Page 6 
v04= 1e-Sep-19 4 93:28:13 OPCOM. SRC ISHUTDOWN.B32¢1 . (3), 
50 04 A2 04 C1 9 ADDL3 #4, 4(R2), RO : 
0c 60 34 o00e BLBS  _—- (RO) ng : o142 
0000' cf F 01 PUSHAB P.AAA + 0144) 
: DD 13 PUSHL Re ; | 
00006 CF 0 FB 9017 CALLS #2, DUMP_LOG_FILE ; | 
3F 62 81 0001D 18: p (R2), #63 : 0149. 
46 1B 009 BLEQ : 
50 04 =A 26 ¢1 000 ADDL3 #38 4(R3), REQ + 0155 
3 06 Ag E9 900 BLBC 6(REQ), 2$ : 0159 
oc 00 6E 00 C 99 8 MOVCS #0, (SP), #0, #12, MESSAGE + 0164 
6E 1313 $F B0 Mii 1 MOVW #4883, MESSAGE + 0165 
02 AE 000C0903 8F DO 000 MOVL #788739, MESSAGE+2 + 0167 
08 AE 00006 CF DO 0003E MOVL LCL_CSIb, MESSAGE+8 + 0170 
00006 CF 40 &8F 9A 90044 MOVZBL #647 COD BUSY _MAX + 0171 
00006 CF 04 DO O004A MOVL #4, COD_BUSY_NODE + 0172 
5E DD O004F PUSHL SP + 0173 
0C DD 00051 PUSHL #12 : 
7E 01 CE 00053 MNEGL #1, -(SP) : 
00006 CF 03 FB 00056 CALLS #3, CLUSCOMM_SEND : 
7E D4 00058 2$: CLRL = = ( §P) : 0178 
00006 CF 9F 0005D PUSHAB SHUTDOWN_LOOP : 
000000006 00 02 FB 00061 CALLS #2, SYSSTMKRNL 3 
04 00068 3$: RET + 0181 


; Routine Size: 105 bytes, Routine Base: $CODE$ + 0000 


OPCSSHUTDOWN 
v0S=000 


LIVLSSBowe 


0 
uw 


SE 


oO 
oo 


SSLEARRANVLSS 
oO DOOOO0O0O0O0O0O0OW MMC cCD 


OWDNAUES WN (OOD NAUES WN OVOONOULS WI 


GOOOOCOCOCOOSOSCOSOSSOSSOSOOCSOOSOOOSCOOOOOOOOOOOOCOOOOOO 
Soooocooo°oo 


RPIPIPIPIPINININININININININININININININININ 2 9 2 9 


Be Se Ge Se Ge Se Be Se Se Ge Be Ge ee SH Se Se BH Ge Se Se Se Ge Se Se Se Oe Ss Se Se Se Se Se Se Geese SH Se Se Se ee ee 


POPIPOPOPINIPINIPYNINYINININININININININININININININ 2 2 Ss 


POMIMONONID A 
MEW —ODCONOUS WhO 


NONORY 
NM—OOONOUSWN oO 


6D 20 4E 57 4F 


&& 


= PONIPIPOPIPNIPONPONOPINONINYNY — 
m — 


nN 8 
16-Sep-1984 01:56:1 AX-11 Bliss-32 V4.0-742 
10233b-1 982 93:3 4 OPCOM. SRC ISHUTDOWN.B325 1 


1e4 
! Functional description: 


' 

i 

i 

i 

; Input: 

BUFFER_DESC - pointer to message from remote node, including $SNDOPR header 
: CLM = ointer to CLM structure 

LEN = ength of LEN 

i Implicit Input: 

None. 

i Output: 

: None. 

i Routine value: 

None. 

BEGIN ! Start of SHUTDOWN_CLM_HANDLER 


i Check the version number of the message. If the message is from any other version, 
: simply ignore it. 


if .CLM CCLM_B_DS_VERSION] NEQ SHUT_K_DS_VERSION 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, %ASCID "CLM__SHUTDOWN mismatch’); 


; Bring things to a halt 
SCMKRNL (ROUTIN=shutdown_Loop); 


RETURN; 
ND; ! End of SHUTDOWN_CLM_HANDLER 


-PSECT S$PLITS,NOWRT,NOEXE,2 


54 55 48 53 SF SF 4D 46 43 QOO3C P.AAD: .ASCII \CLM__SHUTDOWN mismatch\<0><0> 
00 00 68 63 74 61 6D 73 69 0004 
010E0016 00054 P.AAC: .LONG 17694742 
00000000" 00058 -ADDRESS P.AAD 
-PSECT S$CODES,NOWRT,2 
0000 00000 -ENTRY SHUTDOWN_CLM_HANDLER, Save nothing 
50 08 AC DO 00002 MOVL CLM, RO 


GLOBAL ROUTINE SHUTDOWN _CLM_HANDLER (BUFFER_DESC : $ref_bblock, CLM : $ref_bblock, LEN) : NOVALUE = 


This routine is the handler for all SHUTDOWN messages received by OPCOM from other nodes. 


ope ssHToO iEoseoctgpe 01:56:15 yateny oLigec32 v4.0-742 


03 02 CMPB gin). a3 
A QL 
atta PUSHL 8 Biren R DESC 
0000G CF cate » DUMP_LOG_FILE 
1$ CLRL =(SP) 
00006 B PUSHAB SHUTDOWN LOOP 
000000006 00 f a #2, SYSSTMKRNL 


; Routine Size: 39 bytes, Routine Base: S$CODE$ + 0069 


! End of SHUTDOWN 


. . 
rorer 
rorer 
ono 
ooo 
rrr 
rw 


1 END 
25 0 ELUDOM 


; PSECT SUMMARY 

: Name Bytes Attributes 

: SPLITS 92 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 144 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

Sars er ee ee ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

> _$255$DUA28:(SYSLIBILIB.L32;1 18619 7 0 1009 00:01. 

3  =$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 16 2 4 00: $0:9 

; COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHUTDOWN/OBJ=0BJ$:SHUTDOWN MSRC$:SHUTDOWN/UPDATE=(ENHS$: SHUTDOWN) 


BeBe Be Se Se Be Se Be Be Be 


oO 
v 


V4.0-742 Page 9 
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OPCSSHUTDOWNL 18-Sep-1984 93:38:33 = LOB com. Becdsnotogun B S341 (5) 


14-Sep-1984 12 


6 MODULE OPCSSHUTDOWNL (LANGUAGE (Bh S836) - 

1 IDENT = ‘V0Q5-001 

é vad: ADDRESSING_MODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=LONG_RELATIVE)) = 

5 LIBRARY ‘SYSSLIBRARY:L1IB.L32'; 
LIBRARY 'LIB$:OPCOMLIB'; 
PSECT ! Need new module to change code psect 

CODE = _SHUTDOWN ' want it page~aligned so that page 
(NOWRITE ,EXECUTE ,ALIGN(9)); ! faults won*t occur at high IP 


BUILTIN 
GLOBAL ROUTINE SHUTDOWN_LOOP : NOVALUE = 


le¢ 
! Functional description: 


BELL LLP ES 


WN — SO CONOAUES WN OO OBNOUSWN—OOW 


MMIMOMIPINOPONINONOPORoPoNono nnn nononorononononofoforfronofnonony 
AOouwn 


DAA AAA BS BS BB BB BE EAA oponon 


MRO OONOUES WN 0 OONOA UE WIN 0 ONO UE WN 0 ODNAU EWN OOO NAUES WAR “OO O~AO 


incr K FROM 0 TO 500000 
loops = .loops + 1; ' Pause for a second 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN | 
GLOB 


| 
| 
i | 
3 } This routine does the actual shutdown 
5 ! Input: 
: None. 
5 i Implicit Input: 
5 None. 
i Output: 
None. 
— 
26 
264 
265 26 AL 
266 26 LOOPS : VOLATILE; 
267 26 
268 26 BUILTIN 
269 26 BUGW; 
270 26 
271 26 EXTERNAL LITERAL 
ie 26 BUGS_OPERCRASH; | 
fi 33 ; | 
a : Use the MTPR to fault in both our global page and the rest of the code | 
77 37 loops = ipl$_synch; 
78 , MTPR (Loops, P $_IPL); | 
2 Loop for a second or so to make sure that our messages made it out through the port 
7 
7 


Ronshonononoforopofory 


SSeaees 


i Now bring it to a halt with our specific bugcheck 


vos-00) 
87 
88 
89 


90 
1 


; Routine Size: 


NOU Ww 


32 bytes, 


! 

BUGW (BUGS_OPERCRASH OR 4); 
RETURN; 

END; 


00000 LOOPS:: 


52 00000000" Fr 
; 
50 
ge 
F6 50 0007A120 F 


F 
00 


COOoOoooooo°oo 


Soooooooooo 
Cooooocoocooo 
See a 


*OOWA "MO Or 
— 
wr 


Routine Base: _SHUTDOWN_ + 0000 


- TITLE 
- IDENT 


«PSECT 
-BLKB 


: ; AX-11 Ol igen 3 V4.0-742 
M.SRCJSHUTDOWN.B832;1 


OPCOM.SR 


OPC $SHUTDOWNL 
\V03-001\ 
S$GLOBAL$,NOEXE,2 

4 

BUG$_OPERCRASH 
_SHUTDOWN_ ,NOWRT,9 
SHUTDOWN_LOOP, Save R2 
LOOPS, R2 

#8, LOOPS 

LOOPS, #18 

LOOPS 

#500000, K, 1$ 
<BUG$_OPERCRASH! 4> 


9 | 
OPES SHUTDOWN 1E-Sep-1984 01:56:15 yAR-IN Bligsa32 v4.0-742 Page (It 


93 0388 } ee ! End of SHUTDOWN 


PSECT SUMMARY | 
Name Bytes Attributes | 


; | 
: SGLOBALS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
> _SHUTDOWN_ 33 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(9) 
; Library Statistics | 
Fee Ye ee aed ae re Syabols$ ooo----- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 2 0 1009 00:01.8 
3 ~$255$DUA28: COPCOM. OBJ JOPCOML1IB.L32;1 633 0 4 00:00.7 

| 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SHUTDOWN/OBJ=O0BJ$:SHUTDOWN MSRC$:SHUTDOWN/UPDATE=(ENH$: SHUTDOWN) | 
3 Stee: 176 code + 96 data bytes | 
3; Run Time 00:10.4 
: edhe Timer 09:66 +9 
3; Lines/CPU Min: 1668 
3 ponenne/<re-ea 6687 
; Y Used: 74 pages 
3 noe ation Complete 
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